home *** CD-ROM | disk | FTP | other *** search
/ Guidemac 2 / Guidemac 2.iso / Logiciels divers T1 / Gestion / Bibliographie⁄Répertoire / Répertoire 3.0 / RÈpertoire 3.0 / stack_-1.xml < prev    next >
Extensible Markup Language  |  1994-08-22  |  23KB  |  25 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.0</name>
  5.     <id>-1</id>
  6.     <cardCount>4</cardCount>
  7.     <cardID>80044</cardID>
  8.     <listID>2206</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on openStack   -- cr√©ation des menusglobal lafin,leDebut --d√©finit la derni√®re carte pour les recherchesset lockRecent to truelock screenCreerMenugo cd "Index"show menuBarput the number of cds into laFinput the number of first cd of bg "FICHES" into leDebutgo cd "INDEX"push cdset scroll of cd fld "MOTS-CLES" to 0unlock screen with iris closeRestoreGlobalespass openStackend openStackon suspendStackMenu "Remove","R√©pertoire"pass suspendStackend suspendStackon resumeStackcreerMenupush cdrestoreGlobalespass resumeStackend resumeStackon closeStack  --  Efface les menus cr√©√©sMenu "Remove","R√©pertoire"pass closeStackend CloseStack------------------------ Gestion des Menus------------------------------on CreerMenuput "R√©pertoire;A propos de R√©pertoire...;Compl√®ter la pile,"&¬¨"Fichier texte...,Autre pile...;"&¬¨"Effacer la pile...;Trier la pile...;Editer un sch√©ma...;(-;"&¬¨"Recherche simple,Mot-cl√©,R√©f√©rence,D√©finition;"&¬¨"Recherche combin√©e,Partout...,Dans les d√©finitions...,Avec un mot-cl√©...,Avec un auteur...;(-;"&¬¨"Visualiser la recherche...;Imprimer la recherche;"&¬¨"(-;Exporter les donn√©es,Format texte...,Fichier structur√©...;"&¬¨"(-;Enregistrement...;" into lemenuMenu "Install",lemenuend creerMenuon doMenu Quoi  --  intercepte les actions menu avant HyperCardif Quoi = "A propos de R√©pertoire..." thenmyAboutelse if Quoi is "Fichier Texte..." thenechange texteelse if Quoi is "Autre pile..." thenechange pileelse if Quoi is "Effacer la pile..." theneffacePileelse if Quoi is "Trier la pile..." thendiverstrielse if Quoi is "Editer un sch√©ma..." then graphicButtonelse if Quoi is "R√©f√©rence" or Quoi is "Mot-cle" or Quoi is "D√©finition" thenif Quoi is "R√©f√©rence" then put "Auteur" into QuoirechSimple Quoielse if Quoi is "Dans les d√©finitions..." or Quoi is "Partout..." thenRechMulti Quoielse if (Quoi is "Avec un mot-cle...") or (Quoi is "Avec un auteur...") thenrechCombi Quoielse if Quoi is "Visualiser la recherche..." thenpush cdgo cd "VisualRech"else if Quoi is "Format texte..." thenechange exportelse if Quoi is "Fichier structur√©..." thenechange Dataelse if Quoi is "Imprimer la recherche" thenLock screenpush cdgo cd "VisualRech"else if Quoi is "Enregistrement..." then shareCardelse pass doMenuend doMenuon MyAboutget WindowScript("AboutRepertoire")end MyAbouton restoreGlobalesglobal GActif,GCreateur,GFichiergo cd "INDEX"put line 1 of cd fld "LESGLOBALES" into GActifput line 2 of cd fld "LESGLOBALES" into GCreateurput line 3 of cd fld "LESGLOBALES" into GFichierpop cdend restoreGlobales------------------------- Proc√©dures d'import-export ------------------------on echange typeglobal STARTCARD,startStack,laFin,listSelectExit,GActif,ObjValueput false into GActifset userlevel to 5lock screenset lockRecent to trueset lockMessages to truego cd laFinput long id of this cd into startcardput short name of this stack into startStack--d√©termination des champs d'accueil de la pile r√©ceptriceput empty into listeRetourif type is "export" or type is "data" then put "√† exporter" into tempelse put "d'accueil" into tempput choisirChamp(temp) into Quelschampsif quelsChamps is empty then exit echangeif type is "texte" or type is "export" or type is "data" then--d√©termination de l'ordre des champs du fichier texteput quelsChamps into lalisteput scrunch(laListe) into laListeget windowScript ("S√©lection" & return & "Liste_Text:" & laliste)put ObjValue into quelsChamps --retourn√© en lignesif type is "texte" then ImportText quelsChampselseif type is "export" then put "," into separateurelse put tab into separateurexportText quelsChamps,separateurend ifend ifif type is "Pile" then Importpile quelsChampsput empty into GActifunlock screenend echangefunction choisirChamp sens--d√©termination des champs d'accueil de la pile r√©ceptriceput listeChamps() into ListeRetour -- liste des champs de startstackget listSelect(3,ListeRetour,"S√©lectionnez les champs " & sens & " en "&¬¨"maintenant la touche Commande enfonc√©e","OK","Annuler")return itend choisirChampfunction listeChampsput empty into temprepeat with i=1 to the number of fldsput short name of fld i & return after tempend repeatreturn tempend listeChampson Importpile quelsChampsglobal STARTCARD,startStack,laFin,listSelectExit,ObjValue,LaListeset cursor to watchset lockMessages to trueset lockRecent to truelock screenput empty into fileNput empty into transfertdoMenu "Open stack..."put short name of this stack into fileNif fileN is empty then exit ImportPileif fileN is startstack then -- permet d'√©viter de doubler sa propre pileanswer "Impossible d'importer la pile courante !" with "OK"exit importPileend ifgo  cd 10go first cd of this bgput number of this cd into debutput the number of cards into finput listeChamps() into ListeSource -- selection des champs √† importer--d√©termination de la correspondance des champs √† transf√©rer--on suppose que la pile cible n'a qu'UN SEUL FONDget listSelect(3,ListeSource,"S√©lectionnez les champs √† importer en "&¬¨"maintenant la touche Commande enfonc√©e","OK","Annuler")if the number of lines of listeSource is not the number of lines of¬¨quelsChamps thenAnswer "Le nombre de champs choisis ne correspond pas au nombre de"&¬¨" champs d'accueil !! Recommencez..."go startCardexit importpileend ifput scrunch(ListeSource) into lalisteget windowScript ("S√©lection" & return & "Liste_Text:" & LaListe)put ObjValue into ListeSourceAnswer "Il est possible d'importer la pile" && fileN && "en "&¬¨" totalit√© (Automatique)  ou en partie (S√©lective)"&¬¨"en n'important que les cartes marqu√©es (marked cds).    "&¬¨"Quelle forme d'importation ?" with "S√©lective" or "Automatique" or "Annuler"-- constitution de la liste des cartes √† importerput it into modeif it is "Annuler" thengo startcardexit importPileend ifput the number of marked cds into Marquesput "Importation" && mode && "de la pile " & fileN & " "put the number of last marked cd into FinMarkgo cd debutrepeat with y=debut to finif mode is "S√©lective" thengo next marked cdif FinMark=debBoucle then exit repeatput "Carte trait√©e :" && (y+1-debut) && "/" && Marqueselsego cd yput "Carte trait√©e :" && y && "/" && finend ifrepeat with a=1 to the number of lines of listeSourceput line a of ListeSource into champget fld champput FullReplace(it,",", "*") into itput scrunch(it) & "," after transfertend repeatput return after transfertput the number of this cd into debBoucleend repeatgo startcard-- on place ces donn√©es dans les nouvelles cartes cr√©√©esput the number of lines of transfert into totalput "Cr√©ation des nouvelles cartes"repeat with i=1 to totaldoMenu "New card"put "Cr√©ation de la carte :" && i && "/" && total & " "repeat with t=1 to the number of items of line i of transfert--on choisit le champ r√©cepteur = Num√©ro t de quelChampsput line t of quelsChamps into monCHampput item t of line i of transfert into fld Monchampput FullReplace(fld MonChamp,"*", ",") into fld MonChampput unscrunch(fld Monchamp) into fld monChampend repeatend repeatput "Op√©ration termin√©e"hide msg windowunlock screenput empty into transfert -- pour lib√©rer la m√©moireend importPileon importText QuelsChamps --d'apr√®s F Rinaldi in Programmer en HyperTalkglobal STARTCARDput "9,13" into delimitersput 0 into cardcountput 0 into limitput the number of lines of quelsChamps into nbChampsanswer file "Choisissez le fichier √† importer..." of type "TEXT"if it is empty then exit to hypercardput it into fichierset cursor to watchopen file fichierrepeatread from file fichier until (numtochar of item 2 of delimiters)if it is empty and cardcount is 0 then --compteur de toursanswer "Fichier inexistant: " & fichier with "OK"close file fichierexit ImportTextend ifif it is empty then exit repeat --on est √† la fin du fichierelseput FullReplace(it,",","*") into itput empty into last character of itif (numtochar of item 1 of delimiters) is not in it and cardCount =0 thenanswer "D√©limiteur introuvable: TAB..."  with "OK"close file fichierexit ImportTextend ifrepeat until (numtochar of item 1 of delimiters) is not in itput "," into character offset((numtochar of item 1 of delimiters),it) ¬¨of itend repeatput (the number of items of it) into limitif it is not empty and cardcount is 0 thenif limit is not nbChamps thenAnswer "Le nombre de champs choisis ne correspond pas √† "&¬¨"la structure de votre fichier !"close file fichierexit importTextend ifend ifput 1 into cardcountdomenu "New card"add 1 to cardcountrepeat with i = 1 to limitput line i of quelsChamps into leChampput item i of it into fld leChampput FullReplace (fld leChamp,"*",",") into fld leChampput unScrunch(fld leChamp) into fld leChampend repeat  --au cas o√π le champ comporte "¬¨" (export-import)end ifend repeatclose file fichierend importTexton exportText quelsChamps,separateur --fonctionne structur√© ou textglobal leDebut,laFin,Gcreateur,GFichierset lockMessages to trueset lockRecent to truelock screengo cd leDebutAsk file "Enregistrer sous..."if it is not empty then put it into leFichierelse exit exportTextput "Cr√©ation d'un fichier d'export"Answer "Exporter la totalit√© de la pile ou les cartes "&¬¨"marqu√©es ?" with "Marqu√©es" or "Totalit√©"if it is "Marqu√©es" then put true into testif test then put (the number of marked cds + 1) into limitelse put laFin into limitput the number of lines of quelsChamps into NBxopen file leFichierrepeat with i= leDebut to limitif test then go next marked cdelse go cd iif not test then put "Carte trait√©e :" && i && "/" && laFin & " "repeat with x=1 to NBxif x < NBx thenif separateur is "," thenwrite fld line x of quelsChamps & separateur to file leFichierelseput fld (line x of quelsChamps) into tempwrite scrunch(temp) & separateur to file leFichier --test sur returnend ifelseif separateur is "," thenwrite fld line x of quelsChamps to file leFichierelseput fld (line x of quelsChamps) into tempwrite scrunch(temp) to file leFichier --test sur returnend if --les returns √† l'int√©rieur de chaque champ sont remplac√©send if  -- par des "¬¨" ce qui permet une importation facileend repeatwrite return to file leFichierend repeatclose file leFichiergo cd "INDEX"unlock screenput "Export termin√©"close msg windowset lockMessages to falseend exportTexton diversTriglobal objValueput choisirChamp("de tri") into Quelschampsif quelsChamps is empty then exit diversTri--d√©termination de l'ordre des champs du fichier texteput quelsChamps into laliste-- put switch(quelsChamps) into lalisteput scrunch(laliste) into lalisteget windowScript ("S√©lection" & return & "Liste_Text:" & laliste)put ObjValue into quelsChampsif objValue is empty then exit to hyperCardput empty into temprepeat with i=1 to the number of lines of quelsChampsput "fld " & quote & line i of quelsChamps & quote && "&& " after tempend repeatdelete last word of tempdo "sort by" && tempput word 2 of temp into cd fld "Sauve" of cd "INDEX"go first cd of bg "FICHE"end diversTri≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏EXPORTfunction ecrire modeif mode is "style 1" thenput return & fld "MOT-CLE" & "," && fld "AUTEUR" &","¬¨&& fld "PAGE" & return after textend ifif mode is "style 2" thenput return & fld "MOT-CLE" &tab & fld "AUTEUR" & tab¬¨& fld "DEFINITION"  &tab & fld "PAGE" & return after textend ifif mode is "style 3" thenput return & fld "MOT-CLE"  & return &¬¨fld "AUTEUR" & "," && fld "PAGE" & return & fld "DEFINITION" & return after textend ifreturn textend ecrire≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏≈∏GRAPHIQUEon graphicButtonlock screendoMenu "New button"put 1 into numeroset rect of cd btn numero to 442,111,477,147set icon of cd btn numero to "Sch√©ma"set showName of cd btn numero to falseset the style of cd btn numero to transparentunlock screenAffichageGraphic numeroend graphicButtonon AffichageGraphic numeroanswer "Quel type d'image voulez-vous afficher ?" & return ¬¨with "Paint" or "PICT"put it into formeput "Pour afficher quel fichier ?" into promptanswer file prompt of type formeif it is empty then exit to hyperCardRefreshButton it,forme,numeroend AffichageGraphicon RefreshButton theName,forme,numeroput quote & theName & "," & forme & quote into ¬¨char offset(quote,it) to (offSet("end",it) - 2) of itput "Picture" && item 1 of it & quote & "," &¬¨the value of item 2 of it & "," & zoom into leScriptset script of cd btn numero to leScriptchoose browse toolend refreshButtonfunction SchemaExisteif there is a cd button 1 then return trueend schemaExiste--------------------------- DIVERS ----------------------------------on effacePileConfirme "Voulez-vous vraiment supprimer toutes les fiches du fond FICHES ?"global ledebut,laFin,Gactifput false into Gactiflock screenset cursor to watchgo cd (leDebut+1)repeat (laFin-leDebut)doMenu "delete card"end repeatput empty into Gactifunlock screenend effacePileon arrowKey whichKeyif the ShiftKey is down thenif whichKey is "left" thengo prev marked cdelse if whichKey is "right" thengo next marked cdend ifelse pass arrowKeyend arrowKeyon confirme quoianswer quoi with "Annuler" or "OK"if it is "Annuler" then exit to hyperCardend confirmeon abort whatAnswer whatexit to HyperCardend aborton compactageif freeSize of this stack > 15000thenput "Compactage en cours, veuillez patienter..."doMenu "Compact Stack"hide msg windowend ifend compactageon effaceCorneglobal GsubSelecrepeat with i=1 to the number of lines of GsubSelecset hilite of bg btn "Corne" of cd id (line i of GsubSelec) to falseend repeatend effaceCorneon carteSelectionAnswer "Supprimer les s√©lections pr√©c√®dentes ?" with "Supprimer" or "Ajouter"if it is "Supprimer" then unmark all cdsmark this cdend carteSelection------------------------Gestion du param√®trage --------------------------on changeFichierglobal wdID,wdName,objNo,objName,objValueAnswer "Changer le nom du fichier d'export ?" with "Annuler" or "Ok"if it is "Annuler" then exit changeFichierwsSet wdID,"0","Visible","False"Ask file "Cr√©ez un fichier √† l'endroit de votre choix..." with "R√©pertoire.export"if it is not empty thenput fullPathToFileName(it) into itwsSet wdID,"Path","text",itend ifwsSet wdID,"0","Visible","True"end changeFichieron changeTTglobal wdID,wdName,objNo,objName,objValueAnswer "Changer de traitement de texte ?" with "Annuler" or "Ok"if it is "Annuler" then exit changeTTwsSet wdID,"0","Visible","False"Answer file "Localisez votre traitement de texte..."if it is not empty thenput fullPathToFileName(it) into itwsSet wdID,"Createur","text",itend ifwsSet wdID,"0","Visible","True"end changeTTon UpDateParamsglobal wdID,wdName,objNo,objName,objValue,Gcreateur,GActif,GFichierget wsGet(wdId,"createur","text")if it is not empty then put it into Gcreateurget wsGet(wdId,"Path","text")if it is not empty then put it into GFichierget wsGet(wdId,"Manuelle","hilite")if it is false then put true into GActifelse put false into GActifSaveGlobalesend UpDateParamson saveGlobalesglobal GActif,GCreateur,GFichiergo cd "INDEX"put GActif into line 1 of cd fld "LESGLOBALES"put GCreateur into line 2 of cd fld "LESGLOBALES"put GFichier into line 3 of cd fld "LESGLOBALES"end saveGlobalesfunction fullPathToFileName longNamerepeat until ":" is not in longNamedelete char 1 to offset(":",longName) of longNameend repeatreturn longNameend fullPathToFileNameon ShareCardgo cd "INDEX"show cd fld "Enregistrement"Answer "Imprimer le formulaire ?" with "Annuler" or "OK"if it is "Annuler" thenhide cd fld "Enregistrement"exit to HyperCardend ifPrint cd fld "Enregistrement"hide cd fld "Enregistrement"end shareCard---------------------- Gestion de la recherche documentaire--------------------- routine commune pour la demande de l'objet de rechercheon rechSimple champglobal titreRech,quelChamp,laListeeffaceCorneput empty into laListeput champ into quelChampget windowScript("recherche")end rechSimplefunction enregistreput empty into Carteslock screengo next marked cdrepeat with i=1 to the number of marked cdsgo next marked cdput short id of this cd & return after Cartesend repeatreturn Cartesend enregistreon effaceFlagset cursor to watchlock screenunmark all cdsunlock screenset cursor to handend effaceFlagon rechMulti champglobal quelChampeffaceCorneif champ is "Partout..." then put empty into quelChampif champ is "Dans les d√©finitions..." then put "DEFINITION" into quelChampgoRecherchesend rechMultion rechCombi champglobal quelChamp,laListeif champ is "Avec un mot-cl√©..." then put "mot-cl√©" into quelChampif champ is "Avec un auteur..." then put "Auteur" into quelChampput empty into laListeget windowScript("CombiRecherches")end rechCombion goRecherchesglobal laListeput empty into laListeget windowScript("MultiRecherches")end goRechercheson BigRechercheglobal wdID,wdName,objNo,objName,objValue,laListe,laRecherche,quelChampglobal leDebutput empty into laRechercheput empty into laListeput "Mot-Cle" into nomCHamp1put "Auteur" into nomCHamp2set lockMessages to truewsSet wdId,"path","text",""wsSet wdId,"Annuler","Disabled","True"get wsGet(wdID,"EntreeA","Text")if it is not empty then put it into TitreRechget wsGet(wdID,"EntreeB","Text")if it is not empty then put " " & it after TitreRechget wsGet(wdID,"EntreeC","Text")if it is not empty then put " " & it after TitreRechget wsGet(wdID,"EntreeD","Text")put " " & it after TitreRechput the number of cds into xwsSet wdId,"Complet","Max",xlock screengo first cd of bg "FICHES"set lockMessages to trueput the short id of this cd into retourwsSet wdId,"Complet","Value","1"put "Find chars" &&quote & TitreRech & quote into Rechif quelChamp is not empty then put " in fld" && quote & quelChamp & quote after Rechdo rechif the result is not empty thenrienTrouveelseif short name of this bg is "FICHES" thenput short id of this cd into laBoucleput recup("FICHES",nomChamp1,nomChamp2) after laListego next cdput the number of this cd into iwsSet wdID,"Complet","Value",iput empty into currIDrepeat until currID=laBoucledo Rechput short id of this cd into currIDif currId=laBoucle thenwsSet wdID,"Complet","Value",xexit repeatend ifput recup("FICHES",nomChamp1,nomChamp2) after laListeput the number of this cd into iwsSet wdID,"Complet","Value",igo next cdend repeatend ifend ifFinRecherchego cd id retourunlock screenset lockMessages to falseend bigRechercheon RienTrouveglobal wdID,wdName,objNo,objName,objValue,laListeput "Recherche infructueuse" into laListewsSet wdId,"Consulter","Disabled","True"wsSet wdId,"Stocker","Disabled","True"wsSet wdId,"path","Text",laListeend RienTrouvefunction recup nomFond,nomChamp1,nomChamp2if short name of this bg is nomFondthen put the short id of this cd && fld nomChamp1 &&¬¨(word 1 to 4 of fld nomChamp2) & return into tempreturn tempend recupon ChercheAvecglobal wdID,wdName,objNo,objName,objValue,laListe,laRecherche,quelChamp,titreRechput empty into laRechercheput empty into laListeput "Mot-Cle" into nomCHamp1put "Auteur" into nomCHamp2set lockMessages to truewsSet wdId,"path","text",""wsSet wdId,"Annuler","Disabled","True"get wsGet(wdID,"EntreeA","Text")if it is not empty then put it into Uniqueget wsGet(wdID,"EntreeB","Text")if it is not empty then put it into TitreRechget wsGet(wdID,"EntreeC","Text")if it is not empty then put " " & it after TitreRechget wsGet(wdID,"EntreeD","Text")put " " & it after TitreRechlock screengo first cd of background "FICHES"set lockMessages to trueput the short id of this cd into retourwsSet wdId,"Complet","Value","1"set cursor to watchunmark all cdsMark cds by finding Unique in fld quelChampput the number of marked cds into xwsSet wdId,"Complet","Max",xif the number of marked cds =0 then rienTrouveelseput "Find chars" && quote & TitreRech & quote &&¬¨"of marked cds" into Rechdo Rechput short id of this cd into laBoucleif the short name of this bg is "FICHES" thenput recup("FICHES",nomChamp1,nomChamp2) after laListego next marked cdput the number of this cd into iwsSet wdID,"Complet","Value",iput empty into currIDrepeat until currID=laBoucledo Rechput short id of this cd into currIDif currId=laBoucle thenwsSet wdID,"Complet","Value",xexit repeatend ifput recup("FICHES",nomChamp1,nomChamp2) after laListeput the number of this cd into iwsSet wdID,"Complet","Value",igo next marked cdend repeatend ifend ifput unique into titreRechfinRecherchego cd id retourunlock screenset lockMessages to falseend chercheAvecon FinRechercheglobal wdID,wdName,objNo,objName,objValue,laListewsSet wdID,"Complet","Value",xwsSet wdID,"Annuler","Disabled","False"wsSet wdId,"Consulter","Disabled","False"wsSet wdId,"Stocker","Disabled","False"if laListe is not "Recherche infructueuse" thenput crunch(laListe) into laListeput FullReplace(laListe,"("," ") into laListeput the number of lines of laListe && "Fiche(s) correspond(ent) √† votre demande" into NblineswsSet wdId,"path","Text",Nblinesend ifend FinRecherche</script>
  17.     <background id="2574" file="background_2574.xml" name="FICHES" />
  18.     <background id="19612" file="background_19612.xml" name="Index" />
  19.     <background id="80290" file="background_80290.xml" name="RECHERCHE" />
  20.     <card id="80044" file="card_80044.xml" marked="false" name="VisualRech" owner="80290" />
  21.     <card id="81320" file="card_81320.xml" marked="false" name="INDEX" owner="19612" />
  22.     <card id="24964" file="card_24964.xml" marked="true" name="" owner="2574" />
  23.     <card id="3048" file="card_3048.xml" marked="false" name="" owner="2574" />
  24. </stack>
  25.